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author Brian Porter Creation Date 11-MAY-1981 


++ 
Function description: 


This module sicpa'sia: to the correct machine check display routine 
based on emb$l d. 


Modified by: 


V03-007 SARO249 Sharon A. Reynolds 11-Apr-1984 
= Ch anpee £2 carriage control in format statements for 


use 
Removed * MCHECKS routine, re-written and named 
MCHK DISPATCHER. 


v03-006 EAD0007 Elliott A. Drayton 21-Feb-1984 
Added UVAX-1 support. 


v03-005 SAR0082 Sharon A. Reynolds, 20-Jun-1983 
Changed the carriage control in the ‘format’ statements 
for use with ERF. 


v03-004 BP0004 Brian P 28-MAR-1983 
Corrected 11/750" 1B ha hy ofrer stuff. 


vC3-003 BP0003 Brian Porter, 11-JAN-1982 
Corrected mcheck type 7, ms7zz code. 


v03-002 BP0002 Brian Porter, 27-AUG-1981 
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¢ Corrected mcheck_780, SBITA register. 
C v03-001 BP0001 Brian Porter, 29> JUN-1981 
c Added call to LOGGER. 


Functional description: 


This routine displays mchecks for the 11/780. The format of the 

cpu specific piece of the qrcer log is as follows. 

The summery parameter is divided yp into the following pieces 
; summary code. Byte 5; the opcode of the failing 


abort. te ; byte 4, bit 1; if the machine check is either 
ca 


NNN 
NOUSWN OO 


: exception PC : 


goeer econ woe as ù— ewan noone neo nraeme nee $ 


: exception PSL ' 


eee rem mere eee eee ee eee eee meee eer eee mee oa 


c 
c 
c 
Cc 
c 
c 
c 
c 
c acp or che parity error fault or abort then each bit represents 
c the cache group if any that was disabled by vms as a result of the 
c machine check. 
c 
78 c — 
79 c summary parameter H 
Cc cee em ee ee ee ee mn me ee ee seeeeeooee 
1 c cpu error status register H 
Cc ee ee eee ee wn em ew enw ee we ee ee meee eee ee ee 
; c trapped uPC ' 
c ù—— cern er en eee me ee eet ewes Se ere eet 
0085 c VA/VIBA H 
8 c Pew rence wen een ence new mem oe mee ere ene eet ey 
87 c D reg : 
0088 c 2 ———— —————————————— —— * 
0089 c TBERO ' 
Cc were ween te tee eee Oe Ee BERBER} 
$091 c TBER1 ' 
83 Cc eer wanon ee ee Cem ewneraen ew remem eee + 
c SBITA H 
0095 c cache parity error register : 
0096 c eee rere eee eee eee een ee ewer er ene ewer oes * 
8 c SBIER ' 
8 c demon eon eee eee + 
c 
c 
c 
c 
c 


subroutine mcheck_780 (lun,start_of_cpu_specific_stuff) 


include ‘src$:opcodes.for /nolist' 


SSS=SSSIESRENLS 


bytes 1 ° 3 n | 
nstruction if the machine check is a control store per ity qrree 

4, bit " 

include ‘src$:modes.for /nolist' 
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-Sep-1 DISKSVMSMASTER: CERF .SRCIMCHECKS.FOR;1 | 
189 
if Pay 
136 byte lun 
8 integers4 start_of_cpu_specific_stuff oi 
196 integere4 buf fer (12) 9 
138 integer*4 summary _code 9 
byte summary_array(4) 3 
¢ integer*2 summary _parameter 9 
byte cS_parity_error_opcode a 
8 byte disabled_cache_group_fiags a 
9 08 integers4 cpu_error_status_register 9 
8 19 integer*4 trapped_upc 4 
° 1g integer*4 va_viba_register at 
0 16 integer4 d_register 9 
1 integer*4 tber0O_register 8 
0 13 integers4 tberl_register 9 
integers4 sbi_timeout_address_register 9 
integers4 cache_parity_error_register 9 
— integer*4 sbi_error_register 9 
— integer*4 exception_pc 9 
integer*4 exception_psl 9 
equivalence (buf fer(1),summary_array) ot 
; equivalence (buf fer(1),summary_code) ; 
¢ equivalence (summary_array(1),summary_parameter) ; 
equivalence (summary_array(3),cs_parity_error_opcode) : 
equivalence (summary_array(4) ,disabled_cache_group_ flags) ; 
“9 equivalence (buf fer (2) ,cpu_error_status_register) | 
4 equivalence (buf fer(3), trapped_upc) 0 
8 equivalence (buf fer(4),va_viba_register) gt 
| 
ee 


prs ae Igoben- 1984 PO57:08 — DISKSUMSMASTER:LERF<SRCIMCHECKS.FOR:T 
equivalence (buf fer(5),d_register) 
equivalence (buf fer (6), tberO_register) 
equivalence (buf fer (8), sbi_timeout_address_register) 
equivalence (buf fer (9) ,cache_parity_error_register) 
equivalence (buf fer(10),sbi_error_register) | 
equivalence (buf fer(11),exception_pc) 
equivalence (buf fer(12),exception_psl) 


character*27 vicpu_error_status_register (3:3) 


ata vicpu_error epetys. register (3) 
; /* PERFORMANCE MON TOR ENABLE ° 


character*20 aac 


7 (ope!) 
1 * INTEGER OVERFL 9 


——— 


data traps ¥ 
/* INTEGER DIVIDE BY O#'/ 


s(3) 
FLOAT OVERFLOWS" / 


traps (4 
FLOAT DIVIDE BY 34) 
troaps (5) 
"FLOAT UNDERFLOW*'/ 


20 
DECIMAL OVERFLOW*'/ 


ta 
/* 
ta 
/* 
t 
/ 
ta 
/* 
t srepett) 

/*DECIMAL DIVIDE BY O#'/ 

character*24 v2cpu_error_status_register (7:16) 


data v2cpu_error_status_register(7) 
1 /*ALU C318#'/ 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
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0 
0 
0 
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0 
0 
" 
0 
0 
0 
0 
0 
| 
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data v2cpu_error_status_register (8) 
1 /°ALU Z*'/ 

data v2cpu_error_status_register(9) 
1 /*ALU Ne'/ 

data v2cpu_error_status_register(10) 
1 /*°E ALU Ze#'/ 


equivalence (buf fer(7),tberl_register) 


MCHECK. 760 if deo- 1944 M708 DESkSumghasten: Lear. secaMcHecks.FoR: 1°? 


at v2cpu_error_status_register(11) 
$7 5te ay ner, “VoCPunerror. =re9 


cpu_error zigetus. register(12) 


vec 
7? /*CS PARITY ERROR GRouP 0 


a v2cpu_error_status_register(13) 
4 FFs PARITY vache Ot Nie —— 


dat Pune eos tatus ister(14) 
1 * Xs PARITY enton PoRoU #7) ni eg 


data v2cpu_error status_re ister(15) 
1 /°CS PARITY ERROR SUMMAR ye'/ ° 


data vecpu. error_status_register(16) 
1 /"NESTED ERROR*'/ 


character*25 vitberO_register (0:0) 


dat vitber0 poaiergr ee? 
1 3 TENABLE MEMORY MANAGE 


character*15 v2tber0_register (6:9) 


data vethere register (6) 
1 /'TB HIT GROUP O«' 


data vet pere _register(7) 
1 /*TB HIT GROUP 1* 


data v2tber0_register (8) 
1 /*IB AUTO RELOAD®'/ 


data v2tber0_register(9) 
1 /°IB "WCHK''®"/ 


character*17 v3tber0_register(14:15) 


dat ystherd _register(14) 
1 * icao CODE “ADS 


dat v3tber0_register(15) 
1 7 micro CODE ‘FS'**'/ 


character*34 vitberl_register(0:3) 


2——————— 


MEUM ⏑ 


ö0000000000000000000000 
— 
FSESEG 


dat vitber1 register (0) 
1 7* AUTOMATIC HARDWARE INITIATED LOAD*'/ 


data vitberl_re ister(1) 
/*PROTECTION — OR MISS*'/ 
ta 


vitber!_register(2) 


1 
da 
1 /*TB PARITY ERROR* 9 


Oco —— 
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dat giseer! register (3) 
1 * "1B MISS ON LOAD®' 


character*24 v2tberl_register (8:20) 


gets v2tberl_register (8) 
/*CP TB PARITY ERROR®*/ 


data zetpert L cegigger (9) 
/*GROUP 0, ADDRESS 

t ber1 V cegigger (10) 
ber 
yt aie 
$86 
ger’ J cogiggertte) 
$8 


iy" 1 L cogigyert ts) 
$8 
ber 


“ne Wee Wet Wet ag 


register(14) 
8 WNit 35 


v 
DDR 
v2tber1 re ister(15) 
A BYTE O«' 


OOOO OSCOCOCOCOCOCOOOOOC OOOO OOoOOoOOoO 


MPPoPoPoPoNononononononononenoferonoronronofpnonn 


GROUP 0, DAT 


ata v2tber1 reg teversi6) 
*GROUP 0, DATA BYTE Te’ 


1 
d 
1 
d 
1 
d 
1 
ge a v2tber1 regtetertt?) 
d 
1 
d 
1 
d 
1 


ooo 


wr 


GROUP 0, DATA BYTE 2 


ata v2tber1 reg tecerti6) 
"GROUP 1, DATA BYTE Oe’ 


a v2tber1 register (19) 
GROUP 1, DATA BYTE T 


a v2tber1 req isterte0) 
"GROUP 1, DATA BYTE 2*' 


character*32 vicache_parity_error_register (0:15) 


data vicache _parity_error_register(0) 
1 /*PARITY OK “CAM GROUP 1, BYTE S*7/ 


ata vicache_parit error. fe ister(1) 
/"PARITY OK CAM GROUP 1, byte ° 
ata vicache parity _error_register(2) 
"PARITY OK ‘CAM’ GROUP 1, brie zee⸗ — 


t 
/ 
ata vicache_parity_error_register(3) 
/"*PARITY OK ‘‘CAM’ GROUP 0, brie 35 6 
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1 
1 vicache parity_error_register(4) 
1 “CAM GROUP 0, BYTE 1877 * 


vicache parity_error_register(5) 
“CAM GROUP 0, BYTE O#"/ 


vicache parity _error_register(6) 
“CDM” GROUP 0, BYTE Se°/ 


gee 
/*PARITY 


gete 
/*PARITY 


UPWnN— NOUS WN—O0OO~s 
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t lcache parity error_register(7) 
/ “CDM GROUP 0, BYTE 2977 
dat lcache parity _error_register(8) 
7 “CDM GROUP 0, BYTE 1#7/ 
dat lcache parity_error_register(9) 
7 “CDM GROUP 0, BYTE O#"/ 
data icache parity _error_register(10) 
1 /*PARITY OK “CDM GROUP 1, brie 35 — 
9 dat vicache _parity_error_register(11) 
re 1 /*PARITY OK “‘CDM" GROUP 1, brie 35 ° 
4 data vicache parity _error_register(12) 
“8 1 /*PARITY OK ‘‘CDOM’’ GROUP 1, byte 1*%/ . 
45 data vicache parity error_register(13) 
88 ——— 
Beds data vicache_parity_error_register(14) 
0450 1 /°CP ERROR*'/ 
51 data vicache_parity_error_register(15) 
2g 1 /"ANY ERROR*'/ 
3 integer*4 cache_group_disabled 
2 integer*4 mnemonic 
28 integer*4 ast_level 
9 integer*4 arithmetic_trap_code 
8 integere« last_tb_write_pulse 
64 equivalence <coche group disabled,mnemonic,ast_level, 
65 1 arithmetic_trap_code,last_ftb_write_pulse 
8 lLogicale1 diagnostic_mode 
8 integer*4 LibSextzv 
4 integers4 compress4 
ig integer*4 compressc 
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74 

i 

7 call moved (%val(48),start_of_cpu_specific_stuff,buffer) 
i diagnostic_mode = .false. 

5 


if Ciand(tberO_register,'001f001e'x) .ne. 0) diagnostic_mode = .true. 


call Linchk (Llun,2) 
vo NOSESLYP- 104 MGRRTIBN SC" -enceneton.n : 
if (.not. diagnostic_mode) then 8 
9 cott vaxpsl (Lun,exception_psl) ae 
38 call Linchk (lun,1) Oc 
95 write(lun,10) “ERROR PSL',exception_psl 00 
8* endif ae 
98 call Linchk (lun,1) 8 
write(lun,10) “SUMMARY CODE',summary_code ee 
206 if (.not. diagnostic_mode) then 8 
call Linchk (lun,1) 8 
056 if (summary_parameter .eq. '00'x) then 8 
£308 call Linchk (lun,1) 8 
ai 15 Yornsctt'' tes,nee taOe eee OR ERROR CONFIRMATION FAULT") 00 
3} -t40,a./,' °*,t40, 00 
318 else if (summary_parameter .eq. '02'x) then ge 
315 write(Lun,20) "CP TB ge 
8 20 format ( -t40,a,° PARITY ERROR FAULT‘) 
S18 else if (summary_parameter .eq. ‘'03'x) then OC 
: ’ write(lun,20) "CP CACHE’ : 
3 § else if (summary_parameter .eq. ‘05'x) then OC 
3 3 25 Ceri itis S READ DATA SUBSTITUTE FAULT") o¢ 
“60,8, o¢ 
; $ else if (summary_parameter .eq. ‘Oa'x) then Of 
03 5 write(lun,20) "IB TB Bt 
| 


o 
as 
o 


3.4-56 
ER: LERF. SRCIMCHECKS.FORS1° 9° 


craps tr if Seong 2:87:08 DISkSMSMAS 
else if (summary_parameter .eq. ‘Oc'x) then 

write(lun,25) 16 

else if (summary_parameter .eq. ‘Od'x) then 

call Linchk (Lun,1) 

write(lun,15) ‘IB READ TIMEOUT’ 

else if (summary_parameter .eq. ‘Of'x) then 

write(lun,20) ‘IB CACHE’ 

else if (summary_parameter .eq. ‘'fi'x) then 


write(lLun,30) "CONTROL STORE* 
30 format(' ',t40,a,' PARITY ERROR ABORT") 


else if (summary_parameter .eq. ‘f2'x) then 
write(lun,30) ‘*P TB" 

else if (summary_parameter .eq. ‘'f3'x) then 
write(lun,30) "CP CACHE’ 

else if (summary_parameter .eq. ‘f4'x) then 
call Linchk (lun,1) 


write(lun, 33) "CP READ TIMEOUT’,* = OR ERROR CONFIRMATION ABORT’ 
35 format(' ',t40,a,/,' ',t40,a) 


else if (summary_parameter .eq. ‘'f5'x) then 


ur ivot tun, 40) "e READ DATA SUBSTITUTE ABORT’ 
40 format(' *,t40,a 


else if (summary_parameter .eq. ‘'f6'x) then 


wr ttetlun.55) "MICROCODE “NOT SUPPOSED'," = TO BE HERE’ ABORT’ 
else 


write(lun,40) ‘UNKNOWN SUMMARY CODE’ 
endif 
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if (summary_parameter .eq. ‘fl'x) then 

mnemonic = LibSextzv(0,8,cs_parity_error_opcode) 
call Linchk (lun,1) 

write(lun.42) opcodes (mnemonic) 


42 rorgatt” t t40, OPCODE MNEMONIC = ‘*,a<compressc (opcodes (mnemonic) )>) 
en 
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00 
00 
09 
00 
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00 
00 
00 
00 
00 
00 
00 
09 
00 
00 
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00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
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1 
01 
01 
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f (summary_parameter .eq. ‘03'x 


i 
1 " 
; summery pereneter -eq. ‘Of'x 
1 


summary_parameter eq. ‘f3'x) then 

cache_group_disabled = LibSextzv(0,8,disabled_cache_group_ flags) 
if (cache _group_disabled .ne. 0) then 

call Linchk (lun,1) 


write(lun,45) "CACHE GROUP ',cache_group_disabled,'. DISABLED BY VMS" 
areets” -t40,a,i<compress4 (cache_group_disabled)>,a) 


call Linchk ¢lun,1) 


write(lun,50) ‘CES',cpu_error_status_register 
format(' a Wt Tees — . 


if (.not. diagnostic_mode) then 
ast_level = LibSextzv(1,2,cpu_error_status_register) 
call Linchk (lun,1) 


write(lun,55) modes (ast_level) 
format(’ °,t40,a<compressc (modes(ast_level))>,* AST PENDING’) 


call output (lun,cpu_error_status_register,vicpu_error_status_register, 
PsusesstoE) unre : / : 


arithmetic _trap_code = Lib$Sextzv(4,3,cpu_error_status_register) 
if (arithmetic _trap_code .ne. 0) then 

call Linchk (lun,1) 

yritetiyn,60) traps(arithmetic_trap_code) 

na fa -t40,a<compressc (traps(arithmetic_trap_code))>) 


lun,cpu_error_status_register,v2cpu_error_status_register, 


call Linchk (lun,6) 

write(lun,65) "MICRO PC*,trapped_upc,'VA/VIBA',va_viba_register, 
1 'D REGI TER’ daregister 
format(3(* *,t8,3,t26,28.8,:/)) 
call Linchk (lun,1) 
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915 
n 94:01:08 
write(lun,50) ‘TBERO',tberO_register 

if (.not. diagnostic_mode) then 

call output (lun,tberO_register,vitber0O_register,0,0,0,'0") 
call output (lun, tberO_register,v2tber0_register,6,6,9,'0") 
call Linchk (lun,1) 

write(lun,70) "MICRO CODE "MCT" FIELD = ', 

1 LibSextzv(10,4,tber0_register) 

format(’ *,t40,a,Z2.2) 

colt output (Lun, tberO_register,v3tber0_register,14,14,15,'0") 


call Linchk (lun,1) 
write(lun,40) "DIAGNOSTIC MODE’ 
endif 


call Linchk (lun,1) 

write(lun,50) ‘TBER1',tberl_register 

if (.not. diagnostic_mode) then 

if Ciand(tberl_register,'00000010'x) .eq. 0) then 

colt output (lun, tberl_register,vitberl_register,0,0,3,'0") 


write(lun,40) "BAD "IPA" 
endif 


last_tb_write_pulse = LibSextzv(5,2,tberl_register) 
call Linchk (Lun,1) 
if (last _tb_write_pulse .eq. 1) then 


write(lun,75) "TO GROUP 0° 
format(’ °,t40,"LAST TB WRITE PULSE ‘,a) 


else if (last_tb_write_pulse .eq. 2) then 
write(lun,75) ‘TO GROUP 1° 

else if (lLast_tb_write_pulse .eq. 3) then 
write(lun,75) ‘UNPREDICTABLE’ 

endif 


cal| output (Lun, tberl_register,v2tberl_register,8,8,20,'0") 
en 
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a a a a a a OO OA OA OM OM, OP, OM OM OM 8 lt tk tk lt lt ek —— —— —— ——— —— ——— —— — — —— ———— 


öOOOOOCOIOSOOSOOSOSOOSOSOOSOOOOOOOOõOõ0000000000000000000000000 


Ses Fs Fas ra SSSEsess 
wn 


MEANS o ——— 


SN NN NNN — SN SSS 


& 


1% — 1 
5335 


if (.not. diagnostic_mode) then 
if (iand(sbi_error_register,'00001000'x) .ne. 0) then 


call sbi_timeout (lun,sbi_timeout_address_register) 
att 

call Linchk (lun,1) 

write(lun,50) *SBITA’,sbi_timeout_address_register 

call Linchk (lun,1) 

write(lun,50) ‘CACHE PE REG',cache_parity_error_register 


if (.not. diagnostic_mode) then 

galt output (lun. cache parity.error register. 
vicache_parity_error_register,0,0,15,'0') 

endif 

if (.not. diagnostic_mode) then 

call sbi_error (lun,sbi_error_register) 

else 


call Linchk (lun,1) 


write(lun,50) ‘SBIER',sbi_error_register 
endif 


return 


end 


VAX-11 FORTRAN 


DISKSVMSMASTER: CERF .SRCIMCHECKS.FOR; 1 


| 
— — —— — — — — — — — — — — 
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PROGRAM SECTIONS 
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DISKSVMSMASTER: CERF .SRCIMCHECKS.FOR;1 


Name Bytes Attributes 
? SCODE 249 PIC CON REL LCL SHR EXE LONG 
SPDATA ; PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
§ SLOCAL 5 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
OPCODE 84 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
4 MODE 5 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
Total Space Allocated 9753 
ENTRY POINTS 
Address Type Name 
0-00000000 MCHECK_780 
VARIABLES 
Address Type Name Address Type Name 
ARITHMETIC _TRAP_CODE -00000000 14 TabevE 
CACHE GR GROUP_DISABLED Wor 1*4 tac cA PARITY 5 — REGISTER 
PU_ERROR_STATUS_REGISTER -000000 $ L*1 CS_PA a TY_ERROR 
DIAGHOST IC_MODE -00000 L*1 DISAB bata ACHE ReROUP. FLAGS 
GIS TER" -0000002C I*4 EXCEPT PC 
PR cESTiION PSL -000000 1*4 LAST 1 OURITE PULSE 
LUN -000000 I*4 NE 1t 
$B1_ERROR_REGISTER -000000 I*4 SBI Uifeour ADDRESS_REGISTER 
START oF CPU_SPECIFIC_STUFF -0000 I*4 SUMMAR 
S Itch —WX x 1*4 TBERO RREGISTER 
TBER1 REGI -0000000C I*4 TR PaPPED UPC 
VA_VIBA_ Rte ETER 
Name Bytes Dimensions 
sures 363 
OPCODES 3840 (0:385) 
— ARRAY & (6) 
S 140 (7) 
VICACHE panity ERROR_REGISTER 3 (0:15) 
V1CPU_ERRO sTRTUs REGISTER (3:5) 
VITBERD_ReG erst 5 (0:0) 
VITBER REGISTER 1 8 (0:3) 
V2CPU_ERROR_STATUS_REGISTER 240 (7:16) 
V2TBERO_REGISTER 9 (6:9) 
VeTBER1_REGISTER 3 (8:20) 
VSTBERO REGISTER 34 (14:15) 


MCHECK_7 - AX-11 FORTRAN ¥3.4-5 P 14 
et if: pdms ene: WO:6F:88 — BPKbUMGQASTeN PERE. ShcomcHecks.For:1°%* 
LABELS 

Address Label Address Label Address Label Address Label Address Label Address Label 


Be a Ss ae e eez zu: cct “ 


FUNCTIONS AND SUBROUTINES REFERENCED 


Type Name Type Name Type Name Type Name Type Name Type Name 
1*4 COMPRESS4S 1*4 COMPRESSC I*4 LIBSEXTZV LINCHK MOVC3 OUTPUT 
S81 _ERROR SB1_TIMEOUT VAXPSL 


| 


d 16 
MErgeen ORs POiETiOs § — STERSUMGRASTENSCEAE SOCIMCHECKS.FoR:t™” "> 


WN — 


5 


* 
> 


Functional description: 


This rourine qisplays machine checks for the 11/750. The format 
of the entry is as follows. 


ewes e sees ences eoese ese ees emesseseses se 


H error code } 


fe — nen eee non 2 


va last fetch : 


ers etre now wee e eee ewer e nen vem 


' pc at error ' 


doo we mr eanrowwrncwes Samra een ees m ume ece + 


} memory data last reference H 


eee tern nee ewer ee eee eee ee ee ee wee eeeoeeoe + 


: saved mode register H 


ew r ee een eee Be OB eB BOBO REET OBE Ow eee + 


H write vector register : 


bowen nee ee eee ee new ee wore eww ee ee eeeee } 


H tber : 


+ eet ete ces estes eee en en eee ewe ere wr ocearae + 


' caer ' 


gown erence ewes women e seen en ea $ 


‘ bus error register : 


torre meen aan ren een ee eo ee ee een } 


: error summary ' 


tomo wen sere nee e mene See eS oe 
i exception pc i 


rr ewe ne Heme mew ere tO OH eee meme + 


: exception psl H 


— soem em oeeoeoeeoooocc] ee em ms + 


POR) 2 2 2 2 ⏑ ⏑ ⏑⏑⏑— 


WN" OOONOUE OOONOu fun -* 


AHAOAHAHAHAAHAHAAAHBARAARALAaRaAAAABAAAAAAaA 


SS8S88888888383ss3ss 


39 
0 
3 subroutine mcheck_750 (Llun,start_of_cpu_specific_stuff) 
se 
3 include ‘src$:opcodes.for /nolist' 
085 
ate byte lun 
integer*4 start_of_cpu_specific_stuff 
integer*4 buf fer (12) 
integere4 error_code 


integer*4 va_last_fetch 


MCHECK_750 


NOUS WMO 


SELLE EEE 


2 00 


öOOOIOIOOIOIODSOIOOOIOOCOOIOOOCOOCOOOOOODCOOISO)O)OCOOOOSOOOOOOOOSOOõO 
a ee et Dad oD aD 


vw 


integers4 
integer*4 
integers4 
integer*4 
integer*4 
integer*4 
integert4 
integer*4 
integer*4 
integer*4 
equivalence 
equivalence 
equivalence 
equivalence 
equivalence 
equivalence 
equivalence 
equivalence 
equivalence 
equivalence 
equivalence 
equivalence 
integer*4 
integer*4 
logical*1 


16 
REHM UBER 
pc_at_error 
memory _data_last_reference 
saved_mode_register 
write_vector_reg ister 
tber_register 
caer_register 
bus_error_register 
machine_check_error_summary 
exception_pc 
exception_psl 
(buf fer(1),error_code) 
(buf fer(2),va_last_fetch) 
(buf fer(3),pc_at_error) 
(buf fer(4) ,memory_data_last_reference) 
(buf fer(5),saved_mode_register) 
(buf fer(6) ,write_vector_register) 
(buf fer(7),tber_register) 
(buf fer (8) ,caer_register) 
(buf fer(9) ,bus_error_register) 
(buf fer(10) ,machine_check_error_summary) 
(buf fer(11),exception_pc) 
(buf fer(12),exception_psl) 
mnemonic 
compressc 
diagnostic_mode 


call movc3 (%val(48),start_of_cpu_specific_stuff.buffer) 


diagnostic_mode = .false. 


VAX=-11 FORTRAN V3.4-56 
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MCHECK_750 


a a a — a a kt at a a a a a = a — a = 2 4) a i 9 os tb a a as 2 — — —— 


LSSSLESRASLSSSISALALLS SSNS ARAN ISSSIS TALES Se 


RMoroferoferory 


SIS ARON 


wn 


10 


— 
Seal 


Lad 
oO 


~ 
w 


30 


r =Seo- 198s 0:87:08 
call Linchk (lun,2) 


write(lun,10) “EXCEPTION PC’ ,exception_pc 
format(/* *,t8,a,t24, 28.8) — — 


call vaxpsl (lun,exception_psl) 
call Linchk (lun,3) 


write(Llun, 15) * SUMMARY CRE error. code 
format(/* *,t8,a,t246,26 


if (.not. diagnostic_mode) then 
if (error_code .eq. 1) then 


erteti tle = STORE PARITY ERROR’ 
format ( a) 


else if ORS Eire -eq. 2) then 

write(lun,20) ‘TRANSLATION BUFFER OR BUS ERROR’ 

else if (error_code .eq. 3) then 

write(lun,20) "CACHE PARITY ERROR’ 

else if (error_code .eq. 6) then 

write(lun,20) "MICRO CODE LOST‘ 

else if (error_code .eq. 7) then 

write(lun,20) "IRD ROM LOST’ 

else 

write(lun,20) "UNKNOWN SUMMARY CODE’ 

endif 

endif 

call Linchk (lun,4) 

write(lun,25) ‘VA LAST —8* va_last fetch,'PC AT ERROR® .pc_at_error, 
1 "MDR* memory _data_last_referénce, *SMR ,saved_ mode _register 
format(4(" *,t8,a,t24,28-8,:/)) 

if (.not. ———— then 

colt cater 1916 (Lun, ishft(iand(saved_mode_register,"Q000000f"x),16)) 
en 


call Linchk (lun,1) 


write(lun 30) ALTO" our ite. vector_register 
format(’ *,t8,a,t24,28.8) 


Page 
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if Enot. diagnostic_mode) then 
coll cater 1512 (Lun, ishft(iand(write_vector_register,'00000001'x),12)) 


call Linchk (lun,1) 

write(lun,30) ‘TBER',tber_register 

if (.not. diagnostic_mode) then 

call cmier_118 (lun, ishft(iand(tber_register, 'O000000f'x),8)) 
if Ciand(tber_register,'00010000'x) .ne. 0) then 

call Linchk (lun,1) 


write(Lun, 35) 8 GROUP 0 DISABLED (VvMS)' 
35 format(’ 't40,a 


else if (iand(tber_register,'00020000'x) .ne. 0) then 
write(lun,35) ‘TB GROUP 1 DISABLED (vMS)' 
endif 
else 
call Linchk (lun,1) 
write(lun,37) "OIAGNOSTIC MODE" 
37 format(' ',t40,a 
endif 
if (.not. diagnostic_mode) then 
call comet_caer (lun,iand(caer_register,'fffcffff'x)) 
if (error_code .eq. 3) then 
if (iand(caer_register,'00010000'x) .ne. 0) then 
write(lun,35) ‘CACHE DISABLED (VMS)' 
endif 


endif 
else 


call Linchk (lun,1) 


write(lun,10) ‘CAER',caer_register 
endif 


call Linchk (lun,1) 
write(lun,30) ‘BER’, bus_error_register 
if (.not. diagnostic_mode) then 


| 
: 


AAARAOX BYP PNWANA EE EEE EEE EEUU AMAA 3S 3 S33 
TPO SSRIS UFT UN SSaNG ARN SSe wun NAVE WN MOOD VOW 


call cmier_30 (lun,bus_error_register) 


H 16 
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-$ep-1984 14:01: DISKSVMSMASTER: CERF. SRCIMCHECKS. FOR;1 
8 call comet_mcesr (lun,machine_check_error_summary) 
if (error_code .eq. 1 
1 .or. 
7 error_code .eq. 6 


— — — 


error_code -eq. 7) then 
mnemonic = LibSextzv(16,8,machine_check_error_summary) 
call Linchk (lun,1) 


3 
74 
75 
i$ 
i —Q88 opcodes (mnemonic) 
40 —Ax -t40,OPCODE MNEMONIC -, acconpresse (opcodes (nnenonic))2) 
en 
else 
6 
88 
9 


call Linchk (lun,1) 
write(lun,10) "MCESR’ ,machine_check_error_summary 
endif 


8 return 
8 90 
91 end 


PROGRAM SECTIONS 


Name Bytes Attributes 
0 SCODE 1379 PIC CON REL LCL SHR EXE RD NOWRT LONG 
1 SPDATA 41 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
§ SLOCAL 3/8 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
OPCODE 384 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
Total Space Allocated 6005 
ENTRY POINTS 
Add:ess Type Name 
0-00000000 MCHECK_750 
VARIABLES 
Address Type Name Address Type Name 
I1*4 BUS_ERROR -00 1 I*4 CAER_REGISTER 
3 % L*1 DIJAGNOST - 09009 6 I*4 ERROR »Ô 
I*4 EXCEPTI -00 C I*4 EXCEPTIO 
AP @tel LUN -00000024 [#4 HAC HINE OtAECK _ERROR_SUMMARY 


mCHECK 750 if-Fep-1964 00:25:52 VAN] FORTRAN WS.4-56 | Page 20 


im 5 add DATA_LAST_REF ERENCE - 8 34 I*4 MNEMONIC 
24 T_ERROR™ - if 1*4 SAVED_MODE_REGISTER 
1*4 STRAT OF CPU _SPECIFIC_STUFF -00 18 I*4 TBER_REGISTER 
2 1*4 VA_LAST_FETCA 00000014 I*4 WRITE nVECTOR. REGISTER 
ARRAYS 
Address Type Name Bytes Dimensions 
=00000000 I*4 BUFFER 48 (12) 
=00000000 CHAR OPCODES 3840 (0:255) 
LABELS 
Address Label | Address Label Address Label Address Label Address Label Address Label 
1-0000012F 10° 1-0000013C 15° 1-00000149 20° 1-00000150 25° 1-00000163 30° 1-0000016F 35° 
1-00000176 37° 1-0000017D 40° 
FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name Type Name Type Name Type Name Type Name 
CMIER_118 CMIER_1512 CMIER_1916 CMIER_30 COMET _CAER COMET_MCESR 
1*4 COMPRESSC I*4 LIBSERTZV LINCHR novc3 VAXPSC 


— — — — — — — — — — — —— — ——— — — 


aeem pgenn  YAMCHNAEORTEIN YES smcneces. ron" 2 


c++ 

c Functional description: 

c 

c This routine 24 s machine checks for the 11/7zz. The format 
c of the entry is as follows. 

c 

c ——— ——————— 2 + 
c machine check type code H 
c Se ee ee ee me ew ee 
c first parameter H 
c second parameter : 
c exception pc ' 
c tee sercaese sce sees es owee sete e ses meeee $ 
c H exception pst H 
Cc more weer ern een nr neers nen ene wm aren ene + 
c —“ 


subroutine mcheck_7zz (lun,start_of_cpu_specific_stuff) 


= 
WN —O OBNOUSWUN —OOONOUS 


SSS8Ss8SSSssssssssss 


byte lun 
3 integer*4 start_of_cpu_specific_stuff 
33 integer*4 buf fer(5) 
3$ integer*4 machine_check_type_code 
3 integer*4 first_parameter 
0040 
1 integer*4 second_parameter 
a integer*4 exception_pc 
5 integer*4 exception_psl 
88 equivalence (buf fer(1) ,machine_check_type_code) 
a equivalence (buf fer(2),first_parameter) 
4 equivalence (buf fer(3),second_parameter) 
38 equivalence (buf fer (4) ,exception_pc) 
ie equivalence (buf fer(5),exception_psl) 
5 integere4 error_pfn 


Kk 1 
MCHECK_722 1 J -1984 00:23: VAX=11 FORTRAN V3.4-56 p 
g-3ee 198 9? ‘83 ‘3g DISKSVMSMASTER: Ri teRe RF.SR ScamcHecKs.FoR: 10°" * 
integere« compress4 
character*21 vifpa_error_bits(0:2) 


gee v} fpa_ error_bits(0) 
/*PARITY ERROR®' 


error_bits(1) 
Y 7 Group 0 PARITY XX % 


ata fpa_error_bits(2) 
$F S croup 1 PARITY Parone’? 


call movc3 (%val(20),start_of_cou_specific_stuff, buffer) 
call Linchk (lun,2) 


write(lun, 10) "EXCEPTION OC" -exception_ pc 
10 format(/* ‘,t8,a,t24,28.8) 


call vaxpsl (lun,exception_psl) 

call Linchk (lun,3) 

write(lun,10) "SUMMARY CODE* ,machine_check_type_code 
if (machine check _type_code .eq. 0) then 


write iun,20) "aycne CODE SHOULDN''T BE HERE‘ 
20 format(’ *,t40,a 


if (first parameter .eq. 2) then 
call Linchk (lun,2) 


write(lun 29) first parameter,’ CANNOT wx ** PTE <M> BIT’ 
25 format (' tts, ‘1ST PARAMETER’ ,t24,28.8,: :t40,:a) 


else if (first_parameter .eq. 3) then 
call Linchk (lun,2) 


wr itetlun.25) first_parameter,'BAD 8085 INTERRUPT’ 
else 


78 
79 


@ 
wr 


S2sessesees 


goto 50 
endif 


goto 60 
else if (machine_check_type_code .eq. 1) then 
write(lun,20) "TRANSLATION BUFFER PARITY ERROR’ 


— 2— — — — — — — — — — — — — 
επσ 
— mewn fo 
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call Linchk (lun,2) 

write(lun,25) first_parameter,'PTE FROM TRANSLATION BUFFER’ 

call Linchk (lun,2) 


write(lun,30) second _parameter,'PTE FROM MEMORY’ 
30 format(’ *-t8,*OND PARAMETER’ .t26,28.8,:/,:t40,:a) 


return 

else if (machine_check_type_code .eq. 3) then 
write(lun,20) ‘IMPOSSIBLE VALUE IN MEMORY CSR‘ 

call Linchk (Lun,2) 

write(lun,25) first_parameter,'VIRTUAL ADDRESS REFERENCED’ 
goto 60 

else if (machine_check_type_code .eq. 4) then 
write(lun,20) ‘FAST INTERRUPT WITHOUT SUPPORT’ 

hd (first_parameter .ne. 0 


MEW ⏑ A ⏑ 


——— 
tt a ad 
OWN 


PPD DAVIVIVIUIN E BBE EEE EEE 


VSSSLFSAFERVISSRVTATUN LS SHVEAEGWASS 


1 second_parameter ene. 0) goto 50 

return 

else if (machine_check_type_code .eq. 5) then 

write(lun,20) ‘FPA PARITY ERROR’ 

call output (lun, first_parameter,vifpa_error_bits,0,0,2,'0") 


ö000000000000000 


goto 60 


— — — — — — — — — — — — 


else if (machine_check_type_code .eq. 6) then 
write(lun,20) ‘ERROR ON ‘‘SPTE’’ READ‘ 

call Linchk (lun,2) 

write(lun,25) first_parameter,'PHYSICAL ADDRESS OF ‘’SPTE' 
goto 60 

else if (machine_check_type_code .eq. 7) then 
write(lun,20) ‘UNCORRECTABLE ECC ERROR’ 

call Linchk (lun,2) 

write(lun,35) first_parameter 


O000000000000000202020 


— — — — — — — — — — — — — — — — 
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DISKSVMSMASTER: CERF .SRCJMCHECKS.FOR;1 
35 format(* *,t8,"1ST PARAMETER’ ,t24,28.8) 

error_pfn = LibSextzv(9,15,first_parameter) 

write(lun,37) error pfn 


178 
17 
17 
4 
"7 37 format(’ *,t40,"PAGE #',i<compress4 (error_pfn)>,'. IN ERROR’) 
43 goto 60 
, 1 else if (machine_check_type_code .eq. 8) then 
; : write(lun,20) "NON-EXISTENT MEMORY’ 
; 5 call Linchk (lun,1) 
O18? write(lun.40) first parameter 
1 40 format(' *,t8,'1ST PARAMETER',t24,28.8,/, 
189 1 t40,"PHYSICAL ADDRESS REFERENCED’) 
8 goto 60 
0198 else if (machine_check_type_code .eq. 9 
or. 
0195 1 machine_check_type_code .eq. 10 
0196 -or. 
3444 1 machine_check_type_code .eq. 11) then 
8 if Gachine check type code .ne. 11) then 
01 write(lun,20) ‘ILLEGAL 1/0 SPACE REFERENCE’ 
og else 
04 write(lun,20) ‘ILLEGAL UNIBUS REFERENCE’ 
05 endif 
oF call Linchk (lun,1) 
8 write(lun,40) first_parameter 
11 goto 60 
1 else 
14 write(lun,20) “UNKNOWN SUMMARY CODE' 
\3 endif 
7 50 cont inue 
19 call Linchk (lun,2) 
1 rite(lun,55) first_parameter,second_parameter 
§ 55 formag(’ 8, 1ST PARAMETER’ tos A *,t8,"2ND PARAMETER',t24, 
z8. 
4 
5 return 
; 60 continue 
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VAX=11 FORTRAN Pes 
DISKSVMSMASTER: CERF .SRCIMCHECKS.FOR; 1 


if (second_parameter .ne. 0) then 
call Linchk (lun,1) 


NOUSWN OO 


Oooooooocoo 


PROGRAM SECTIONS 


ENTRY POIITS 


1=0000025" 40" 


return 


end 


0=000004¢A 


write(lun,30) second_parameter 
endif 


1=B0000209 83° 


Name Bytes Attributes 
9 SCODE 1353 PIC CON REL LCL SHR _ EXE RD NOWRT “ONG 
1 SPDATA 717. = PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
2 SLOCAL 400 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
Total Space Allocated 2470 


1-00000225 35° 


0-0000080¢ 


Address Type Name 
0-00000000 MCHECK_722 
VARIABLES 
Address Type Name Address Type Name 
-00000054 I*4 ERROR _PFN -0000000C I*4 EXCEPTION PC 
Sane, fs Eerie — 
2-00000008 I[*4 SECOND PARAMETER AP-000000088 I*4 START_OF_CPU_SPECIFIC_STUFF 
ARRAYS 
Add:iess Type Name Bytes Dimensions 
3861. 1*4 BUFFER 29 (5) 
-00000014 CHAR VIFPA_ERROR_BITS 63 (0:2) 
LABELS 
Address Label Address Address Labe Address’ Label Address’ Label Address Label 


1-0000023F 37° 


. 
. 
. 
° 
7 
e 
. 
° 
. 
° 
. 
. 
7 
e 
. 
. 
. 
. 
. 
. 
— 
e 
J 
e 
2 
e 
. 
e 
. 
e 
— 
e 
* 
. 
a 
. 
. 
° 
a 
e 
. 
° 
. 
e 
eo 
o 
° 
. 
. 
+ 
e 
— 
e 
. 
o 
. 
. 
. 
o 
7 
° 
o 
° 
. 
e 
. 
a 
7 
. 
. 
o 
. 
o 
+ 
a 
. 
o 
. 
2 
. 
° 
+. 
. 
. 
* 
⸗ 
o 
7 
. 
. 
e 
* 
e 
. 
oe 
a 
o 
7 
2 
. 
« 
. 
ia 
7 
> 
. 
. 


MCHECK_722 


FUNCTIONS AND SUBROUTINES REFERENCED 


Type Name 
1*4 COMPRESS4 


Type Name 
I*4 LIBSEXTZV 


Type Name 
LINCHK 


Fe 


Sep=1986 19:61:08 


Type Name 
MOVC3 
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DiSKSVMSMAS TER: ERF .SRCIMCHECKS.FOR; 1 


Type Name Type fame 
OUTPUT VAXPSL 


<3 


oom 


~ 
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D1 
Meee eee POiS bs IEKEIMSOASTCN PERE SeCIMCHECKS.FORS4 


Sep-19 


0001 

pons 

000 c++ 

8 c Functional description: 
c 

0006 c This routine displays machine checks for the UVAX1. The format 

0007 c of the entry is as follows. 

0008 c 

0009 c 22 ù —————4 
c machine check code H 
c Sete er Bees BB TB SBP SeSZTZTFZOe Seer ee Seeeeoenoneae 
c first parameter ' 
Cc tm wee sos a nw eee ecm ewe ono ae + 
c second parameter ' 
c — Aer ae seo e as oe ea ae awe + 
c exception pc 
c fees amen nanan nas ese sem eon emananroae + 
c exception psl } 
8 —— ——2 —224 
Cc ae 


subroutine mcheck_uv1 (lun,start_of_cpu_specific_stuff) 


UR AAAATIURNMMNUNN 3 — 
UEUN =O OCONAUEWN OOD NOULWN HO 


$8883S8888888388883sss33ssss3s 


implicit none 
byte lun 
integer*4 start_of_cpu_specific_stuff 
8* integers4 buf fer (5) 
33 integert4 machine_check_code 
re integer*4 parameter_1 
83 integere4 parameter_2 
8 integer*4 exception_pc 
$ integere4 exception_psl 
: equivalence (buf fer(1) , machine_check_code) 
39 equivaience (buf fer(2) ,parameter_1) 
: equivalence (buf fer (3) ,parameter_2) 
33 equivalence (buf fer(4),exception_pc) 
2$ equivalence (buf fer(5) ,exception_psl) 


— cetzn Q0:38:32  YMRCLTAEORTRMN Wät: dhe cyecas. rons tee 2 


integers4 compress4 
character*27 address_previous_function 


dat address prey ious function 
1 ji PHYS ADDR PREVIOUS FUNCTION'7 


character*26 address_current_ function 


dat address current function 
1 3 ꝰenys ADDR CURRENT FONCTION'7 


ease cto 


9 

0 

73 character*25 physical_pte_address 
007 data hysical_pte address 
gore 1 /*PHYSICAL appkess OF — 
gore character*25 virtual_pte_address 
0078 dat virtual_pte address 
0079 1 * VIRTUAL ADDRESS FOR” 'PTE'''/ 
0080 
0081 
008 
008 call movc3 (%val(20),start_of_cpu_specific_stuff, buffer) 
8 call Linchk (lun,2) 
0087 write(lun,5) ‘EXCEPTION eC" ence tion_pc 
0088 5 format(' ',t8,a,t24,28.8) a 
8— call vaxpsl (lun,exception_psl) 
009 call Linchk (lun,3) 
$098 


write(lun,5) "MACHINE CHECK’ ,machine_check_code 
if (machine_check_code .eq. 1) then 


ur icetiyn, 10) — CONTROLLER BUGCHECK' 
10 format(' *,t40,a 


call parameter_one (lun,parameter_1,.true.) 
call Linchk (lun,1) 
write(lun,10) address_previous_function 
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call parameter_two (lun,parameter_2,.true.) 


3828 


write(lun,10) address_current_function 
else if (machine_check_code .eq. 2) then 
write(lun,10) ‘UNRECOVERABLE READ ERROR’ 


— —— — — — — — — — — 
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5 
sere Br3Sp=188e 14:01:08 — DASKSVMSRASTER: EERE SRCIMCHECKS.FOR:Tem 
call parameter_one (lun,parameter_1,.true.) 
call Linchk (lun,1) 
write(lun,10) "PHYSICAL PAGE ADDRESS OF ERROR' 
call parameter_two (lun,parameter_2,.true.) 
call Linchk (Llun,1) 
write(lun,10) address_current_function 


— — — —2 — 
0 
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else if Gochine check code .eq. 3) then 
write(lun,10) “NON-EXISTENT MEMORY' 

call parameter_one (lun,parameter_1,.true.) 
call Linchk (lun,1) 

write(lun,10) ‘PHYSICAL ADDRESS OF ERROR’ 
call parameter_two (lun,parameter_2,.true.) 


— — — — — — — — — — — — — — — — 
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write(lun,10) address_current_function 
else if (machine_check_code .eq. 4) then —— 
write(lun,10) ‘ILLEGAL OPERATION’ 

call parameter_one (lun,parameter_1,.true.) 
call Linchk (lun,1) 

write(lun,10) "‘UNALIGNED 1/0 REFERENCE’ 
call parameter_two (lun,parameter_2,.true.) 
call Linchk (lun,1) 

write(lun,10) address_current_function 
else if (machine_check_code .eq. 5) then 
write(lun,10) ‘FATAL PAGE TASLE READ ERROR‘ 
call parameter_one (lun,parameter_1,.true.) 
call Linchk (lun,1) 

write(lun,10) physical_pte_address 
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call parameter_two (lun,parameter_2,.true.) 
call Linchk (lun,1) 
write(lun,10) virtual_pte_address 
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else if (machine_check_code .eq. 6) then 
write(lun,10) ‘FATAL PAGE TABLE WRITE ERROR’ 
call parameter_one (lun,parameter_1,.true.) 
call Linchk (lun,1) 
write(lun,10) physical_pte_address 
call parameter_two (lun,parameter_2,.true.) 
call Linchk (Llun,1) 
write(lun,10) virtual_pte_address 
else if (machine_check_code .eq. 7) then 
write(lun,10) ‘CONTROL STORE PARITY ERROR’ 
call parameter_one (lun,parameter_1,.false.) 
call parameter_two (lun,parameter_2,.false.) 
else if (machine_check_code .eq. 8) then 
write(lun,10) "MICRO MACHINE BUGCHECK’ 
call parameter_one (lun,parameter_1,.false.) 
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call parameter_two (lun,parameter_2,. false.) 
else if (machine_check_code .eq. 9) then 
write(lun,10) °'Q-BUS"’ VECTOR READ ERROR‘ 
call parameter_one (lun,parameter_1,.false.) 
call parameter_two (lun,parameter_2,.false.) 


PORIMIRD 


else if (machine_check_code .eq. 10) then 
write(lun,10) ‘WRITE PARAMETER ERROR‘ 

call parameter_one (lun,parameter_1,.true.) 
call Linchk (lun,1) 

write(lun,10) "VIRTUAL ADDRESS BEING WRITTEN’ 
call parameter_two (lun,parameter_2,. false.) 


The IF=THEN-ELSE should be expanded at this point to add 
additional mcheck types for uvi. 


0o000000020 2 ⏑ ⏑ ⏑⏑ 000000000 
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MCHECK_UV1 1p sep-19 4 00:33:32 — VAXo11 FORTRAN 


-Sep-1984 DISKSVMSMASTER: 
: else 
¢ write(lun,15) ‘TYPE CODE #* ,machine_check_code 
15 tormat(' ',t40,a,i<compress4 (machine check_code)>,'.') 
5 call parameter_one (lun,parameter_1,.true.) 
call parameter_two (lun,parameter_2,.true.) 
: endif 
40 return 
41 
0242 end 


PROGRAM SECTIONS 


Name Bytes Attributes 
0 SCODE 157 PIC CON REL LCL SHR EXE RD NOWRT LONG 
1 SPDATA 43 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
2 SLOCAL 428 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
Total Space Allocated 2439 
ENTRY POINTS 
Address Type Name 
0-00000000 MCHECK_UV1 
VARIABLES 
Address Type Name Address Type Name 
13-Bon9000¢ F — ADDRESS _CURRENT_FUNCTION -00000 8 CHAR ADDRESS_PREVIOUS_FUNCTION 
EXCEPTION_PC ms ate isa Aten PTION_PSL 
Ss tsi 0 1*4 CHINE _CRECK_CODE 
PARAMETER_1 300000 008. 32 PARARE 
mtn — PHYSICAL_PTE_ADDRESS AP- Ie START_OF _CPU_SPECIFIC_STUFF 
2 CHAR VIRTUAL_PTE_ADDRESS 
ARRAYS 
Address Type Name Bytes Dimensions 
2-00000000 I*4 BUFFER 20 (5) 


3.4-56 Page 


ERF .SRCIJMCHECKS.FOR;1 


31 
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MCHECK_UV1 
LABELS 
Address Label Address Label 
1-0000018E 5° 1-0000019A 10° 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name 
1*4 COMPRESS4 LINCHK 


Address 
1-000001A1 


Type Name 
MOVC3 


Label 
15° 


iff 


ep-1984 99:61:08 


Type Name 
PARAME TER_ONE 


X=11 FORTRAN V¥3.4-56 
SKSVMSMASTER: Yes RF.SR 


Type Name 
PARAMETER_TWO 


CIMCHECKS.FOR;1 


Type Name 


VAXPSL 


Page 32 


1 
WBrSep-1984 00:28:52 YANG TT FORTRAN YB.4-56 0 page 35 


subroutine parameter_one (lun,parameter_1,expand) 
3 
9 implicit none 
1 byte Lun 
0815 integers4 parameter_1 q 
16 logical*1 expand 8 
18 007 
19 007 
0020 007 
99 if (.mot. expand) then 007 
00 if (parameter_1 .eq. 0) goto 20 
99 ‘ “= — 8 
0026 LL Linchk (lun,1) 008 
09 $ ca nc lun 008 
8 write(lun,10) parameter 1 
0080 10 format(' ',t8,"PARAMETER 1°,t24,28.8) 8 
0031 20 return 
83 
003 end 
009 
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ORTRAN tees -56 
-Sep-1984 DI SKSVMSMASTER: ERF .SRCIMCHECKS.FOR;1 


PROGRAM SECTIONS 


Name Bytes Attributes 
 SppATA 8 FIC CON REL LCL SHR NOENE RD NOURT LONG 
2 SLOCAL 1 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
Total Space Allocated 106 
ENTRY POINTS 
Address Type Name 
0-00000000 PARAME TER_ONE 
VARIABLES 
Address Type Name Address Type Name Address Type Name 
P-0000000C@ L*1 EXPAND AP-000000048 L*1_ LUN AP-00000008@ I*4 PARAMETER_1 
LABELS 
Address Label Address’ Label 
1-00000004 10° 0-00000041 20 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name 
LINCHK 
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if sep-1 984 ißilzz BERKAUMEAASTER: FEAR; SRcamcnecks.rors1°% > 


subroutine parameter_two (lun,parameter_2,expand) 


implicit none 
byte lun 
13 integert4 parameter_2 
8 logical*1 expand 
18 
26 
8 if (.mot. expand) then 
00 if (parameter_2 .eq. 0) goto 20 
00 : endit iw . ° 
00 — call Linchk (lun,1) 
80 8 write(lun,10) parameter 2 
Oe? 10 format(' ',t8,"PARAMETER 2',t24,28.8) 
st] 20 return 
83 
003 end 
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PROGRAM SECTIONS 
Name Bytes Attributes 


— — 


9 SCODE PIC CON REL LCL 9 EXE RD NOWRT LONG 
1 SPDATA PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
2 SLOCAL PIC CON REL LCL NOSHR NOEXE RD WRT LONG 


— — — — — — 
— —— 


Total Space Allocated 106 


ENTRY POINTS 
Address Type Name 
0-00000000 PARAMETER_TWO 


VARIABLES 
Address Type Name Address Type Name Address Type Name 
AP-0000000C@ L*1 EXPAND AP-00000004@ L*1 LUN AP-00000008@ I1*4 PARAMETER_2 
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LABELS 
Address Label Address’ Label 
1-00000004 10° 0-00000041 20 
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FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name 
LINCHK 
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COMMAND QUALIFIERS 
FORTRAN /LIS=LIS$:MCHECKS/OBJ=OBJ$:MCHECKS MSRC$:MCHECKS 


/CHE CK = (NOBOUNDS OVERFLOW NG NOUNDERF LOW) 
/DEBUGS ( NOS BOLE TRAC ACEBA 


i =(HOPREPROCE SSOR. NOINCLODE ,MAP) 
(30 /NOG_FLOATING 714 /OPTIMIZE /WARNINGS /NOD_LINES /NOCROSS_REFERENCE /NOMACHINE_CODE /CONTINUATIONS=19 


PTS Ee ⏑—&⏑ — 
Mmeom Mm 1 — 


COMPILATION STATISTICS 


NEPADPADAAAH II 


Time ‘ seconds 
Elapsed. Tine: seconds 
Page Faults: § 
Dynamic Memory: 4 pages 
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